home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Tutorial Material / Basic Tutorial / mctest2 < prev    next >
Lisp/Scheme  |  1998-10-26  |  507b  |  28 lines
  1. ; tutorial example 2 - mctest2
  2.  
  3. (setq symbols '(a b c d e f g))
  4.  
  5. (def-symbol
  6.   test1 symbols
  7.   test2 symbols
  8.   test3 symbols
  9.   test4 symbols
  10. )
  11.  
  12. (def-length
  13.   default '1/16
  14. )
  15.  
  16. (setq tonals (activate-tonality (chromatic c 6) (blues1 c 4)))
  17.  
  18. (compile-song-p "ccl;output:" 1/4 "part2"
  19.  
  20. ;                  |---|---|---|---|
  21. changes tonals    " ...    ..  ... "
  22. test1   changes   "-  - -- - --- --"
  23. test2   changes   " -  -- -- -- ---"
  24. test3   changes   "  -   -- -- -- -"
  25. test4   changes   "   -   --  -----"
  26. )
  27.  
  28.